Imports XMLSitemapLibrary


Module Module1

    Sub Main()

        Dim mySiteMapUrls As New List(Of SitemapUrl)

        mySiteMapUrls.Add(New SitemapUrl("http://www.google.com/test_1.html", Now(), 1.0, "Weekly"))
        mySiteMapUrls.Add(New SitemapUrl("http://www.google.com/test_2.html", Now(), 1.0, "Weekly"))
        mySiteMapUrls.Add(New SitemapUrl("http://www.google.com/test_3.html", Now(), 1.0, "Weekly"))
        mySiteMapUrls.Add(New SitemapUrl("http://www.google.com/test_4.html", Now(), 1.0, "Weekly"))

        Console.Write(XMLSitemap.GenerateSitemap(mySiteMapUrls))
        Console.ReadKey()





    End Sub

End Module
